home *** CD-ROM | disk | FTP | other *** search
/ Business Assistant / Business Assistant.iso / home / willrt / e.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-04-11  |  2.0 KB  |  33 lines
  1. 1  REM E  4/11/86
  2. 10  GOSUB 12000:GOTO 9900
  3. 4400  CLS:V=1:H=1:GOSUB 4800:PRINT FR$;:FOR I=1 TO 23:V=I:H=1:GOSUB 4800:PRINT "|";:H=40:GOSUB 4800:PRINT "|";:NEXT I:V=24:H=1:GOSUB 4800:PRINT FR$;:GOSUB 4810:RETURN
  4. 4800  IF ICRT<1 THEN LOCATE V,H+SHI:RETURN:REM VTAB,HTAB
  5. 4802  LOCATE V,H:RETURN
  6. 4810  LOCATE V,POS(1):RETURN:REM VTAB
  7. 4850  VT=CSRLIN:IF ICRT<1 THEN LOCATE VT,H+SHI:RETURN:REM HTAB
  8. 9900  ER=ERR
  9. 9901  GOSUB 4400:II=0:FOR IJ=1 TO N3:IF ER=ER%(IJ) THEN II=IJ:IJ=N3
  10. 9902  NEXT
  11. 9903  V=3:H=3:GOSUB 4800:PRINT"THE FOLLOWING ERROR HAS OCCURED:":V=V+2:GOSUB 4800:PRINT DQ$ER1$(II)DQ$
  12. 9904  V=CSRLIN+3:GOSUB 4800:IF II>0 THEN 9908
  13. 9906  PRINT"PLEASE REPORT ERROR "ER:V=V+1:H=3:GOSUB 4800:PRINT"AT LINE "ERL" IN PROGRAM "DQ$"PRINT"DQ$:V=V+1:GOSUB 4800:PRINT"TO NOLO PRESS (415-549-1976).":V=V+2:GOSUB 4800:PRINT"PRESS ANY KEY TO END":GOTO 9930
  14. 9908  PRINT"PLEASE CHECK...":V=V+1:H=3:GOSUB 4800:PRINT ER2$(II):V=V+1:GOSUB 4800:PRINT ER3$(II)
  15. 9910  V=CSRLIN+3:GOSUB 4800:PRINT"THEN EITHER RERUN THE PROGRAM OR":V=V+2:GOSUB 4800:PRINT "PRESS ANY KEY TO RESUME"
  16. 9930  I$=INKEY$:IF I$=X$ THEN 9930
  17. 9940  IF II>0 THEN RUN"PRINT
  18. 9949  END
  19. 12000  DQ$=CHR$(34):N3=11:DIM ER1$(N3),ER2$(N3),ER3$(N3),ER%(N3)
  20. 12002  ER1$(0)="PROGRAM (OR UNIDENTIFIABLE) ERROR"
  21. 12010  ER%(1)=7:ER1$(1)="OUT OF MEMORY":ER2$(1)="YOUR SYSTEM MEMORY; 128K RAM IS":ER3$(1)="REQUIRED (SOME COMPATIBLES NEED 256K)"
  22. 12020  ER%(2)=25:ER1$(2)="DEVICE FAULT":ER2$(2)="YOUR PRINTER OR OTHER CONNECTIONS"
  23. 12030  ER%(3)=27:ER1$(3)="OUT OF PAPER":ER2$(3)="PAPER SUPPLY & PRINTER ON/OFF SWITCH"
  24. 12040  ER%(4)=53:ER1$(4)="FILE NOT FOUND":ER2$(4)="THAT THE WILLWRITER DISKETTE IS":ER3$(4)="STILL IN DRIVE."
  25. 12050  ER%(5)=57:ER1$(5)="DEVICE I/O ERROR":ER2$(5)="DISK DRIVE AND PRINTER CONNECTIONS"
  26. 12060  ER%(6)=61:ER1$(6)="DISK FULL":ER2$(6)="THAT WW DISKETTE IS IN DRIVE, AND":ER3$(6)="THAT NO FILES HAVE BEEN ADDED TO IT"
  27. 12070  ER%(7)=67:ER1$(7)="TOO MANY FILES":ER2$(7)="THAT WW DISKETTE IS IN DRIVE, AND":ER3$(7)="THAT NO FILES HAVE BEEN ADDED TO IT"
  28. 12080  ER%(8)=68:ER1$(8)="DEVICE UNAVAILABLE":ER2$(8)="DISK DRIVE"
  29. 12090  ER%(9)=70:ER1$(9)="DISK WRITE PROTECT":ER2$(9)="DISKETTE FOR A WRITE PROTECT TAB.":ER3$(9)="(PROGRAM WON'T WORK WITH ONE ON)"
  30. 12100  ER%(10)=71:ER1$(10)="DISK NOT READY":ER2$(10)="THAT DISKETTE IS IN DRIVE AND THAT":ER3$(10)="THE DISK DRIVE DOOR IS CLOSED"
  31. 12110  ER%(11)=72:ER1$(11)="DISK MEDIA ERROR":ER2$(11)="DISKETTE FOR IMPERFECTIONS"
  32. 12999  RETURN
  33.